home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 101 / CD-ROM 101.iso / compl / maya5ple / Install_MayaPLE5_English.exe / Maya / Data1.cab / AEreplaceBoolean.mel < prev    next >
Encoding:
Text File  |  2003-07-17  |  2.2 KB  |  65 lines
  1. // Copyright (C) 1997-2002 Alias|Wavefront,
  2. // a division of Silicon Graphics Limited.
  3. //
  4. // The information in this file is provided for the exclusive use of the
  5. // licensees of Alias|Wavefront.  Such users have the right to use, modify,
  6. // and incorporate this code into other products for purposes authorized
  7. // by the Alias|Wavefront license agreement, without fee.
  8. //
  9. // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  10. // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  11. // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  12. // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
  13. // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
  14. // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  15. // PERFORMANCE OF THIS SOFTWARE.
  16. //
  17. //
  18. //  Alias|Wavefront Script File
  19. //  MODIFY THIS AT YOUR OWN RISK
  20. //
  21. //  Creation Date:  28 June 1996
  22. //  Author:         jvs
  23. //
  24. //  Description:
  25. //      This is part of a set of methods for changing
  26. //        a property sheet to point to a new node.
  27. //        (A way of efficiently re-using existing controls)
  28. //        This method re-connects a boolean control.
  29. //
  30. //  Input Arguments:
  31. //      The name of the existing control
  32. //        The name of the new plug
  33. //        The index in the control associated with the plug
  34. //        
  35. //  Return Value:
  36. //      None
  37. //
  38.  
  39. global proc AEreplaceBoolean ( string $controlName, string $plugName, string $changedCommand, int $index )
  40. {
  41.     setParent $controlName;
  42.  
  43.     // The indices of the control which are connected to plugs start at
  44.     // 2 for this type of control.
  45.     //
  46.     int $adjustedIndex = $index + 1;
  47.  
  48.     connectControl -in $adjustedIndex "valueFld" $plugName;
  49.     
  50.     // get the list of sub-components of the checkBoxGrp,
  51.     // so that we can replace the scriptJob attached to
  52.     // the appropriate one.
  53.     //
  54.     string $subC[] = `layout -q -ca valueFld`;
  55.  
  56.     string $buffer[];
  57.     tokenize($plugName,".",$buffer);
  58.     if ($changedCommand != "") {
  59.         // create a new scriptJob for this attribute
  60.         string $cmd = $changedCommand + " \"" + $buffer[0] + "\"";
  61.         scriptJob -p $subC[$index-1] -rp -ac $plugName $cmd;
  62.     }
  63. }
  64.  
  65.